((I*Csc[theta]* ((((-I)*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)/4)*Cos[phi]*Sin[2*theta])* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*( (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]^2*( ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]* ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[ 2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-12* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1.*^-6*Sin[theta]^2*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/ 2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^ 2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/ 2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^ 2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]* ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( (-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (1.25*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]* Sin[theta]*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r* ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/ (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[ theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]* ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2* ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*( (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*( -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[theta]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ 4 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*( 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( 2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]* (Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*(1.*^-6* (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]* Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))^2))))/(Sqrt[2]*r) + (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]^2* (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]* Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]* ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-12* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/ 2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[ 2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/ 2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[ 2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/ r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625* (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*Sin[theta]* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[ theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[ theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]* ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]* (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^ 2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2* (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]* (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Sin[theta]* Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2* Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*(1.*^-6* (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]* Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)/4)*Cos[phi]*Sin[2*theta])* ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*( ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 - (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)* Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + 1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r* ((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))* Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/ (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/ 4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2* Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[ 2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))* Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + Sin[phi]* ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]^3*Sin[phi]*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta] + 18*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Cos[phi]* (-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])* Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]* Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[ 2*theta]))/(-Csc[theta]^3 + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))* Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta] + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]*(-4*Cos[theta]* Cot[theta] + Csc[theta]) + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])* Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]* Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]))*Sin[2*theta]*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))* Csc[theta]^2*Sin[phi]*Sin[2*theta]*(2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]^2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))* Cos[2*theta]*Csc[theta]*Sin[phi]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[phi]* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.9999999999999994*^-18*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/r^2) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta]*Sin[phi]*Sin[theta]*((-5.*^-7*Sin[phi]*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-5.*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*Sin[ theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*( ((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]* ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/(r*(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2* ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*Sin[ phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^ 2*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]*( 1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*(-1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/(r^2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)* Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*( 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]* (Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]*( -8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(-1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[ 2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 4*r*Sin[theta]* ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]* Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^ 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2* ((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)* r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 + 3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))*Sin[theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^ 2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]* Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]* Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^ 2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[ theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[ 2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 4*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.* r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.* (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.* (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^ 2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^ 2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/2 + 3*r*(5.625/ (E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]*(1 + 2.5*^-7*r*(-6.5625/ (E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta]))) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^ 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.* r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.* (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.* (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.* r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./ E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.* (0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.* r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.* (0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))^2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]* (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]* Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))^2))))/(Sqrt[2]*r) - (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 5)*Cos[theta]*Sin[phi]^2*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2* (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]* Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 - (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + 1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]* Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r*( (-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))* Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[ theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/ 4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2* Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[ 2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + Sin[phi]* ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]* Csc[theta]^3*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])* Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]* Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta]))/(-Csc[theta]^3 + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]* (-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))* Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])* Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]* Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]))*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[phi]* Sin[2*theta]*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]^2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Cos[2*theta]*Csc[theta]*Sin[phi]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.9999999999999994*^-18* r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/r^2) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[phi]*Cos[2*theta]*((-5.*^-7*Sin[phi]*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 5)*Cos[theta]*Sin[phi]*Sin[theta]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]* Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]* ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/ 2)*Sin[2*theta])/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]* (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^ 2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2* (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/(r* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^2* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]* (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*(-1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))))/(r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))))/ (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]* (-8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 4*r*Sin[theta]* ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))) + r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]))/4 + 3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))*Sin[theta] + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(8*Cos[phi]*Cos[theta]* Cos[2*theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^ 2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]* Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]* Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^ 2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[ theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[ 2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))) + 4*(-1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.* (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.* (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^ 2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^ 2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/2 + 3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]*(1 + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^ 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.* r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.* (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.* (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)* r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]* (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]* Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/ (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) - ((((-I)*Csc[theta]*(-1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625* (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]* Sin[theta]*((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 5.*^-7* ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[ theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-13*Sin[phi]*(3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(8 - 2.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]* ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2* Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/ 8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2* Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/ 4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*(3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2* Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]* Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.*^-6*(-2.*^-12* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(7.200000000000001*^-11* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-12*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2* Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^ 2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[theta]*Sin[theta]^3 + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-2*((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]* Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/ (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 + (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2* Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (2.5*^-7*(-2.*^-6* (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2))))/(Sqrt[2]*r) + (1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* ((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*( 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[theta]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]* Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]* (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( -6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + (2.5*^-13*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]* ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*( 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3* Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2* Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]* Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2* Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]* (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2* Sin[4*theta])))))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (2.5*^-13*Sin[phi]^2* Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*( -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/ 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (7.200000000000001*^-11*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2* Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^ 2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]* Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/ (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( 2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2 + (6.25*^-14*Csc[theta]* Sin[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[ phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]* Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[ 2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]* Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^ 2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + 1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 - (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)* Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/ (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[ theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4* (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])* Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[ 6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])* Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])* Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2* Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)* Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^ 2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))^2 + (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]^2*Sin[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]* Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]* Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/ 2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/ 8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2* Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/ 4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r^2) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta]*Sin[phi]*Sin[theta]* (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))) + 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))) + (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 5)*Cos[phi]*Cos[2*theta]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]* Sin[theta]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2* ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(r* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(r* (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]* Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))^2/(r^2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) + (1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*( (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta])))/(2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Csc[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])* Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2* Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]* Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(r^2*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2* Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (5.*^-7*(-1.*^-6* (18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)))*Cos[phi]*Cos[2*theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2))))/(Sqrt[2]*r) - (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]* Sin[theta]^2*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 1.5*^-12* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*(-((Csc[theta]*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 + (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r^2 - (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[ theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[ theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4* (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])* Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[ 6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])* Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])* Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2* Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)* Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]^2*(Cos[phi]^2* (Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]* Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]^2*Sin[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]* Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]* Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/ 2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]* Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r^2) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))) + 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))) + (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - 2.5*^-13*r* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*( -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^ 2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*( 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*( -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)* r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3* Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Cos[2*theta]*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Sin[phi]^2*Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18*( -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*( -0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))^2/ (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* ((-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta])))/ (2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]* Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Csc[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2* Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]* (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2* Sin[4*theta])))))/(r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^ 2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*( -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r^2*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]* Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[ phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]* Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/4)))/(r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (5.*^-7*(-1.*^-6*(18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)))*Cos[phi]* Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]* Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2)*(r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*( r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))*(-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^ 2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2 + (((-I)*Csc[theta]* (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]* (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* (Cos[theta] + Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))* (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (5.*^-13*Sin[phi]*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 1.*^-6*r* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[phi]*Cos[2*theta]*((-5.*^-13*r*Sin[phi]*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]* Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2*((-5.*^-13*Sin[phi]^2*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2* Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)^2*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2* ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*( -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*Sin[theta]*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))* (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (5.*^-13*Sin[phi]*Sin[theta]*( (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]*( 4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]* ((-5.*^-13*r*Sin[phi]*Sin[theta]*( (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( (-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]* Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)/4)*Cos[phi]*Sin[2*theta])* ((-5.*^-13*Sin[phi]^2*Sin[theta]*( (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( (-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 2.5*^-13* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2* Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)/4)*Cos[phi]*Sin[2*theta])* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]* Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]^2*( ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]* (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))* Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(3.75*^-7* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1/4*(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2) + 12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[ theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/ 4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2* Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[ 2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r + (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]* ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[ 2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^ 2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-12* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/ E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^ 2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^ 2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]* ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]* ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3* Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2* ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*( -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]* Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*( 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*( (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( 2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]* (Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*( (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(-3.6000000000000005*^-11* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 5.*^-7*r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r* ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[ 2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*(((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.* (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(Sin[phi]^2* Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 4*r*Sin[theta]* ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]* Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^ 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/ r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[ 4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/ (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))^2) + (2.5*^-7*(1.*^-6* (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]* Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* Sin[theta]^4 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))^2))))/(Sqrt[2]*r) - (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]^2* (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]* Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(3.75*^-7* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1/4*(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2) + 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))/4 + (-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2* Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[ 2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r + (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]* ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^ 2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.*^-12* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])* Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]* Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125* (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/ r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/ r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625* (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]* ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^4 + Sin[2*theta])))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 16*Cos[phi]*Sin[theta]))/2 - 0.000054* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]* (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[ 2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2* (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^ 2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2* (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 6*Sin[4*theta] - 3*Sin[6*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))))/(r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]* (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + 2*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2* Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]* ((1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(-3.6000000000000005*^-11* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]^2*Sin[theta]^2)/ 2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 5.*^-7*r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r* ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7* (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]* ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2* Sin[theta]^2)/2) + 4*r*Sin[theta]* ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]* Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^ 2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[ 4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/ (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2) + (2.5*^-7*(1.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]* Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]* (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2* (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[2*phi]*Sin[theta]^4 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2* Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 3*Sin[6*theta]))))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) + (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^ 2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2 - (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/ 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (7.200000000000001*^-11*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[theta]*Sin[theta]^3 + 3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-7* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)^2*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^ 2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( 2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2 - (5.*^-13*Sin[phi]^2* Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]* Sin[theta]^2*((-5.*^-13*Sin[phi]*(3.6*^-11*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]* ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*( 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3* Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2* Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r* ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*( 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*( 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*( -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3* Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^3 - 0.000648* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))*(7.200000000000001*^-11* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Sin[2*theta] + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.* r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]* Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-7* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)^2*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3) - ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2 - (5.*^-13*Sin[phi]^2*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + r^2*Sin[theta]^2* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((-5.*^-13*Sin[phi]*(3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*Sin[phi]* ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]* ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta]*Sin[phi]*Sin[theta]* ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2* Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r* ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)* Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (2.5*^-7*Sin[phi]*(1.*^-12* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((-2.5*^-7* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]* (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r + (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2* Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])* Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2* Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/ 4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* Cos[theta]*Sin[phi]*Sin[theta]* ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 5.*^-7* ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2* Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) - 1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^ 4)/2)*Sin[phi]*Sin[theta]^2* (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) - 1.*^-6* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/ E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))* Sin[phi]^2*Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2 - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]* Sin[2*theta])/4 - 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta] + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)* r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*(3.6*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]* (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]* Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2* Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]* Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)* r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))*((1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2* Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/ (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2* Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (2.5*^-7*(-2.*^-6* (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]* Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2* Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/ 4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/ 4))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2))))/(Sqrt[2]*r) - (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]* Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + (2.5*^-7*Sin[phi]* (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/r - (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]* Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/ 4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2* Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[ 2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r + (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2* Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (3.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2))/r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]* ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2* Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + 5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2* Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*( -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[ 2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^ 2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*( 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*( -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - 4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3* Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/ (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[ 2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[ 2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( Csc[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^ 2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*( 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2* Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/ 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))^2)) + r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]* (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/2) - 1.*^-6* (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]* (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta]))) - 1.*^-6*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*( 1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2* Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) + (-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2* Sin[phi]^2 - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2* Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/ E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2* Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r* (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2* Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))* (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2* (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2* Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]* (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2* Sin[4*theta])))))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])* (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^ 2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]^2* Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*( (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/ (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/ (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)* r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/ r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)* r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta])))))/ (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]* (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6* ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]* Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/( 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 - (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)* Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]* Sin[2*phi]*Sin[4*theta]))))* (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[ phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*( -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]* Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)* r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)* r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/ E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]* Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/ (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.* r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^ 2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[ theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*( 1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*( Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[ 2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]* Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2* Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] + 3.*^-6* (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)* (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*( -0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2* Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/ 4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125* (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]* (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))))/ (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6* (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)* r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/ r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/ E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/ r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/ E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r))/r^2 + (0. + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]* (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^ 2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2